home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / ums / pint.lha / UMS / Rexx / MultiView.pint < prev    next >
Text File  |  1997-03-04  |  918b  |  50 lines
  1. /*
  2.  
  3.     $VER: MultiView.pint 1.0 (27.8.95)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Updated for PINT (22.2.97):
  9.     Magnus Heino (nd95mho@Student.HGS.SE)
  10.  
  11.    Function:
  12.     Shows the file attached to a message with MultiView.
  13.  
  14.    History:
  15.     0.1   initial version
  16.     0.2   fixed header
  17.     1.0   released with IntuiNews 1.3
  18.     1.1   fixed problem with file or PubScreens names with spaces
  19.  
  20.    Requires:
  21.     UMSServer 11.28 or newer
  22.     ums.library 11.18 or newer
  23.  
  24.    Example for "ums.config":
  25.     ( PINT.Rexx
  26.     ...
  27.         "#?Message F2 MultiView.pint\n"
  28.     ...
  29.     )
  30.  
  31. */
  32.  
  33. /* Get TEMPORARY filename. */
  34.  
  35. OPTIONS RESULTS
  36.  
  37. GETTEMPFILENAME
  38. IF RESULT="RESULT" THEN EXIT 5
  39. TempFileName=RESULT
  40.  
  41. /* Get public screen name. */
  42.  
  43. 'INFO SCREEN'
  44. IF RESULT="RESULT" THEN EXIT 5
  45. PubScreenName=RESULT
  46.  
  47. /* Call MultiView. */
  48.  
  49. SHELL COMMAND 'SYS:Utilities/MultiView "'||TempFileName||'" PUBSCREEN "'||PubScreenName||'"'
  50.